---

title: “Trabajo final - Modulo 2” author: “Fabian Celi” date: “2023-12-26” output: html_document —

1. Realiza un boxplot usando ggplot2, de UNA de las variables que hayas descargado.

Realiza un boxplot usando ggplot2, de UNA de las variables que hayas descargado.

ggplot(crecimiento_porc_PIB2,aes(x=Anio,y=Value,fill=Country.Name))+
  geom_boxplot(aes(fill=Country.Name))+facet_wrap(~Country.Name,scales = "free")+
                 geom_jitter(width=0.1,alpha=0.2,aes(color=Country.Name))+
  labs(title="Crecimiento del PIB en diferentes regiones del mundo",
       subtitle = "En porcentaje",
       caption = "Fuente: Banco Mundial\n Elaboracion: Fabian Celi")+
  theme(legend.position = "none", axis.text.x = element_text(angle = 90, hjust = 1))

2. Realiza un gráfico de barras NO apiladas para 2 variables que tengan sentido analizar, por ejemplo: exportaciones e importaciones; crédito y depósitos, etc.

ggplot(ExpEimp2, aes(x = Anio, y = Value, fill = Concepto, colour = Concepto)) + 
  geom_bar(stat = "identity", position = "dodge", alpha = 0.5) +
  geom_text(aes(label=Value), vjust=0, color="black", size=3,
            position = position_dodge(width = 1)) + 
  labs(title="Evolucion de las exportaciones e importaciones del Ecuador",
       subtitle = "En miles de millones",
       caption = "Fuente: BCE\n Elaboracion: Fabian Celi") +
  theme_bw() + 
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank()) 

3. Escoge 2 variables y realiza un gráfico de líneas en dos cuadros (usando facet).

Este gráfico debe incorporar la linea de tendencia para las dos variables. Prueba generando un gráfico usando dygraphs o plotly

animado2 <- ggplot(data=desempl_homic,aes(x=periodo,y=Value,group=1))+
  geom_line()+facet_wrap(.~Indicator.Name  ,scales = "free")
animado2 <- animado2+transition_reveal(along = periodo)


animado2 <- animado2+geom_point()+ transition_reveal(along = periodo)+
  labs(title = "Mes indicador: {frame_along}")

animado2